home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / deflection 2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  65 lines
  1. 0 REM**UPGRADED, REVISED & ADAPTED TO   THE COMMODORE 64 BY ROGER D BURGE, #2667
  2. 1 REM**TORONTO PET USERS GROUP,CANADA
  3. 2 REM**FROM THE VIC 20 PROGRAM ON TPUG         DISK V1
  4. 5 GOSUB4010:GOTO2000
  5. 210 IFTI$>=O$THENP$=TI$:GOTO600
  6. 214 IFKTHENPOKEZ0,Q2
  7. 215 A=PEEK(Z):IFA=Q0THEN400
  8. 216 GETG$:IFG$="N"THENPOKEZ,Q8:A=Q8
  9. 217 IFG$="M"THENPOKEZ,Q7:A=Q7
  10. 220 SYSM1:IFA<>Q2THEN400
  11. 290 K=E1:POKEZ,Q1
  12. 295 Z0=Z:Z=Z+D
  13. 300 I=.:GOTO210
  14. 400 K=.:IFA=Q0THENSYSM2:D=-D:GOTO295
  15. 410 IFA=Q7ANDABS(D)=E1THENSYSM2:D=FNA(A):GOTO295
  16. 420 IFA=Q7ANDABS(D)=Q4THENSYSM2:D=FNC(C):GOTO295
  17. 430 IFA=Q8ANDABS(D)=E1THENSYSM2:D=FNB(B):GOTO295
  18. 440 IFA=Q8ANDABS(D)=Q4THENSYSM2:D=FND(D):GOTO295
  19. 460 P$=TI$:SC=30-VAL(P$):IFSC>HSTHENHS=SC
  20. 470 PRINT"[151]"SPC(12)"YOUR SCORE IS ";SC:SYSM2
  21. 475 FORR=1TO10:SYSM1:FORJ=.TO25:NEXT:SYSM1:FORJ=.TO25:NEXT:SYSM2:FORJ=.TO25:NEXT
  22. 540 SYSM1:NEXT:FORJ=.TO999:NEXT:GOTO2000
  23. 600 PRINT"[151]               TIME'S UP!               ":GOSUB3000
  24. 610 SC=.:FORJ=.TO555:NEXT:GOSUB5000:GOTO2000
  25. 1000 C1=PEEK(648)*256:C0=55296:CO=C0-C1
  26. 1060 Q2=32:Q1=81:Q3=2:Q0=160:Q7=77:Q8=78:Q4=40:E1=1:Q5=5:Q6=90
  27. 1080 DEFFNA(A)=D*Q4:DEFFNB(B)=-D*Q4:DEFFNC(C)=D/ABS(D):DEFFND(D)=-D/ABS(D)
  28. 1100 POKE53281,1:PRINT"[144][147]":POKE53281,0
  29. 1110 POKE53280,13:FORI=1024TO1063:POKEI,160:POKEI+CO,5
  30. 1120 POKEI+960,160:POKEI+960+CO,5:NEXT:FORI=1064TO1944STEP40:POKEI,160:POKEI+CO,5
  31. 1130 POKEI+39,160:POKEI+39+CO,5:NEXT
  32. 1170 X1=INT(RND(1)*38)+1:Y1=INT(RND(1)*23)+1
  33. 1180 X2=INT(RND(1)*38)+1:Y2=INT(RND(1)*23)+1
  34. 1181 IFX2=X1ORY2=Y1THEN1180
  35. 1185 Z4=Y2*40+X2:POKEC0+Z4,6:POKEC1+Z4,Q6:O$="000030"
  36. 1190 D=-1:Z=C1+Y1*40+X1:Z0=Z+1:K=0:TI$="000000":GOTO210
  37. 2000 POKE53281,1:POKE53280,6
  38. 2020 PRINT"[151][147]         [205][205][205][205][205][205]DEFLECTION[206][206][206][206][206][206]         "
  39. 2040 PRINT"USE THESE KEYS:
  40. 2050 [153]" N WAIT- SET (null)
  41. 2060 PRINT" M [146]- SET [205]
  42. 2070 [153]"TO DEFLECT THE BALL ((null)POKE) INTO THE TRAP   ((null)POKE).
  43. 2071 PRINT"YOU HAVE ONLY 30 SECONDS TO SCORE A GOAL
  44. 2080 [153]"PRESS F7WAIT TO PLAY.":[153]"PRESS F1WAIT TO QUIT.":[151]198,.
  45. 2081 [153]"YOUR SCORE= "SC:[153]"STOPHIGH SCORE= "HS
  46. 2084 [161]A$:[139]A$[178]""[167]2084
  47. 2085 [139]A$[178]"LET"[167]2100
  48. 2086 [139]A$[178]"INPUT"[167][153]"LOAD":[128]
  49. 2090 [137]2084
  50. 2100 I[178].:[137]1000
  51. 3000 [158]M1:[151]54277,53:[151]54278,69:[151]54276,33:[151]54273,5:[151]54272,71
  52. 3001 [129]J[178].[164]900:[130]:[151]SV[170]E1,.:[151]SV,.:[151]SV[170]5,53
  53. 3010 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]E1,3:[151]SV,244
  54. 3015 [129]J[178].[164]900:[130]:[151]SV[170]4,.:[151]SV[170]E1,.:[151]SV,.:[151]SV[170]5,53
  55. 3020 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]E1,2:[151]SV,163:[129]J[178].[164]900
  56. 3030 [130]:[151]SV[170]4,.:[151]SV[170]E1,.:[151]SV  ,.:[137]5000
  57. 4010 [129]T[178]879[164]884:[135]A:[151]T,A:[130]:M1[178]879
  58. 4020 [129]T[178]885[164]890:[135]A:[151]T,A:[130]:M2[178]885
  59. 4090 [131]169,16,141,4,212,96
  60. 4190 [131]169,17,141,4,212,96
  61. 5000 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
  62. 5010 [151]SV[170]24,15:[151]SV[170]5,17:[151]SV[170]6,17
  63. 5020 [151]SV[170]1,28:[151]SV,.
  64. 5030 [142]
  65.